Attribute VB_Name = "modCustomLabels"
'
' Commented out for
'


' See Project properties for Conditional Compilation
#If Not Mitel Then

'---------------------------------------------------------------------------------------
'Module : modCustomLabels
'Date   : 07/12/2004
'Author : Chris Elwell
'Purpose: CreatCustomLabel is called from the main code. See description for details.
'         Add any other code here that is necessary when producing custom labels.
'---------------------------------------------------------------------------------------
'
'---------------------------------------------------------------------------------------
' Module    : CreateCustomLabel
' DateTime  : 7/12/2004
' Author    : Chris Elwell
' Purpose   : Called if Print Custom Labels is check in Setup Peripherals tab.
'---------------------------------------------------------------------------------------
'
Public Sub CreateCustomLabel(Optional ByVal Index As Integer, Optional ByVal strGroundBarcode As String)

    On Error GoTo ErrorExit
    
    Dim objFSO As FileSystemObject
    Set objFSO = New FileSystemObject
    With objFSO.CreateTextFile("C:\FSMSClientLabel.txt", True)
        .Write g_str188
        .Close
    End With
    objFSO.CopyFile "C:\FSMSClientLabel.txt", g_strUNCCustomLabels
    Exit Sub
    
ErrorExit:
    MsgBox "Error creating custom label, " & Err.Source & ", " & Err.Description & "See " & "C:\FSMSClientLabel.txt" & " and label printer " & g_str537 & "."
End Sub
'

'---------------------------------------------------------------------------------------
' Module    : ReprintCustomLabel
' DateTime  : 11/12/2005
' Author    : Chris Elwell
' Purpose   : Called from the frmLblReprint if Print Custom Labels is checked on frmSetup.
'---------------------------------------------------------------------------------------
'
Public Sub ReprintCustomLabel(ByVal str29 As String)


End Sub

#End If

